home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / TOOLS / DEBUG7.ZIP / DEBUG7.LQR / TEST.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-01-19  |  768 b   |  38 lines
  1. Title     Test
  2. CODE    SEGMENT
  3.     ASSUME    CS:CODE, DS:CODE
  4.  
  5.     ORG    100H
  6. START    LABEL    FAR
  7.  
  8.     FINIT            ;initialize the 8087
  9.     FLD    NAN_P        ;load an oridnary NAN
  10.     FXAM            ;check flags for +NAN
  11.     FLD    NAN_N
  12.     FSTP    ST(0)        ;dump - NAN
  13.     FLD1
  14.     FXAM            ;check TOS
  15.     FCHS            ;make -1
  16.     FSQRT            ;invalid operation, 
  17.                 ;-> indefinite = - NAN
  18.     FXAM            ;check TOS
  19.     FLD1
  20.     FLDZ
  21.     FDIV            ;divide by zero -> infinity    
  22.     FILD    L1234        ;load 1234
  23.     FLD    BIG
  24.     FLDPI
  25.     FCHS            ;minus pi
  26.     FLDZ
  27.     FINIT            ;clear processor
  28.     INT    20H        ;return to dos
  29.  
  30.     
  31.     NAN_P    DD    07FF00000h    ;an ordinary +NAN    
  32.     NAN_N    DD    0FFF00000h    ;an ordinary -NAN    
  33.     BIG    DQ    1234.567E100    ;big number    
  34.     L1234    DW    1234        ;small integer
  35.  
  36. CODE    ENDS
  37.     END     START
  38.